home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / asc2img.scm.z / asc2img.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  6.8 KB  |  271 lines
  1. ; Chris Gutteridge / ECS Dept. University of Southampton, England
  2. ; "ASCII 2 Image" script for the Gimp.
  3. ;
  4. ; 8th April 1998
  5. ; 
  6. ; Takes a filename of an ASCII file and converts it to a gimp image.
  7. ; Does sensible things to preserve indents (gimp-text strips them)
  8. ;
  9. ; cjg@ecs.soton.ac.uk
  10.  
  11. ; This program is free software; you can redistribute it and/or modify
  12. ; it under the terms of the GNU General Public License as published by
  13. ; the Free Software Foundation; either version 2 of the License, or
  14. ; (at your option) any later version.
  15. ; 
  16. ; This program is distributed in the hope that it will be useful,
  17. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ; GNU General Public License for more details.
  20. ; 
  21. ; You should have received a copy of the GNU General Public License
  22. ; along with this program; if not, write to the Free Software
  23. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24.  
  25. ; Define the function:
  26.  
  27. (define (script-fu-asc-2-img inFile 
  28.                  inFont 
  29.                  inFontSize 
  30.                  inTextColor 
  31.                              inTrans
  32.                              inBackColor
  33.                  inBufferAmount
  34.                              inFlatten)
  35.     
  36.   (set! theImage (car (gimp-image-new 10 10 RGB) ) )
  37.   
  38.     
  39.  
  40.  
  41.   (set! theLayer (car (gimp-layer-new theImage 
  42.                       10 
  43.                       10 
  44.                       RGBA_IMAGE
  45.                       "layer 1"
  46.                       100 
  47.                       NORMAL) ) )
  48.  
  49.   (gimp-palette-set-background inBackColor)
  50.   (gimp-layer-set-name theLayer "Background")
  51.   (gimp-image-add-layer theImage theLayer 0)
  52.  
  53. (script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize 
  54.                  inTextColor inBufferAmount inFlatten)
  55.  
  56.     (set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
  57.     (set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
  58.     (set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
  59.  
  60.         (gimp-image-resize theImage 
  61.                theImageWidth 
  62.                theImageHeight 
  63.                theBuffer 
  64.                theBuffer)
  65.         (gimp-layer-resize theLayer 
  66.                theImageWidth 
  67.                theImageHeight 
  68.                theBuffer 
  69.                theBuffer)
  70.       (gimp-selection-all theImage)
  71.         (if (= inTrans TRUE) 
  72.           (gimp-edit-clear theImage theLayer)
  73.           (gimp-edit-fill theImage theLayer)
  74.         )
  75.       (gimp-selection-none theImage)
  76.  
  77.         (if (= inFlatten TRUE) 
  78.         (gimp-image-merge-visible-layers theImage 0)
  79.             ()
  80.         )
  81.  
  82.  
  83.     (gimp-display-new theImage)
  84.     
  85.     (gimp-image-clean-all theImage)
  86.     
  87.     (gimp-displays-flush)
  88.     (cons theImage  ()   )
  89. )
  90.  
  91. (define (script-fu-asc-2-img-layer inImage
  92.                    inLayer
  93.                 inFile 
  94.                        inFont 
  95.                        inFontSize 
  96.                  inTextColor 
  97.                              inFlatten)
  98.     
  99.   (set! theImage inImage)
  100.   (set! theLayer inLayer)
  101.   (set! theFile (fopen inFile))
  102.  
  103.   (set! otherLayers (cadr (gimp-image-get-layers theImage)))
  104.   (set! nLayers (car (gimp-image-get-layers theImage)))
  105.   (set! n nLayers)
  106.   (if (= inFlatten TRUE)
  107.       (while (> n 0) (set! n (- n 1)) (gimp-layer-set-visible (aref otherLayers n) FALSE) )
  108.       ()
  109.   )
  110.  
  111.  
  112.   (gimp-palette-set-foreground inTextColor)
  113.   (gimp-selection-none theImage)
  114.   (set! theData ())
  115.   (set! theIndentList ())
  116.   (set! theChar "X")
  117.   (while (not (equal? () theChar))
  118.      (set! allspaces TRUE)
  119.      (set! theIndent 0)
  120.      (set! theLine "")
  121.      (while     (begin     (set! theChar (fread 1 theFile))
  122.                 (and     (not (equal? "\n" theChar))
  123.                     (not (equal? () theChar))
  124.                     )
  125.                 )
  126.             (cond     (    (equal? theChar "\t") 
  127.                     (set! theChar "        ") 
  128.                     (if (= allspaces TRUE) 
  129.                         (set! theIndent (+ theIndent 8)) 
  130.                         ())                
  131.                 )
  132.                 (    (equal? theChar " ") 
  133.                     (if (= allspaces TRUE) 
  134.                         (set! theIndent (+ theIndent 1)) 
  135.                         ())
  136.                 )
  137.                 (TRUE (set! allspaces FALSE))
  138.             )
  139.             (set! theLine (string-append theLine theChar))
  140.         )
  141.         (if     (= allspaces TRUE)
  142.             (set! theLine "")
  143.             ()
  144.         )
  145.         (if     (and     (equal? () theChar)
  146.                 (equal? "" theLine)
  147.             )
  148.             ()
  149.             (begin     (set! theData (cons theLine theData))
  150.                 (set! theIndentList 
  151.                       (cons theIndent theIndentList))
  152.                 )
  153.             )
  154.         )
  155.  
  156.   (set! theText (car (gimp-text theImage 
  157.                 -1 
  158.                 0 
  159.                 0 
  160.                 "X"
  161.                 0 
  162.                 TRUE
  163.                 inFontSize
  164.                 PIXELS 
  165.                 "*" 
  166.                 inFont
  167.                 "*" 
  168.                 "*"
  169.                 "*" 
  170.                 "*")))
  171.      (set! theCharWidth (car (gimp-drawable-width  theText) ))
  172.     (gimp-edit-cut theImage theText)
  173.  
  174.     (set! theImageHeight 0)
  175.     (set! theImageWidth 0)
  176.     (cjg-add-text (reverse theData) 
  177.               (reverse theIndentList) 
  178.               inFont 
  179.               inFontSize)
  180.       (if (= inFlatten TRUE)
  181.         (gimp-image-merge-visible-layers theImage 0)
  182.               ()
  183.       )
  184.       (set! n nLayers)
  185.       (if (= inFlatten TRUE)
  186.               (while (> n 0) (set! n (- n 1)) (gimp-layer-set-visible (aref otherLayers n) TRUE) )
  187.               ()
  188.       )
  189.     (gimp-displays-flush)
  190. )
  191.  
  192. (define (cjg-add-text inData inIndentList inFont inFontSize) 
  193.   (if     (equal? () inData) 
  194.     ()
  195.     (let     ((theLine (car inData)) (theIndent (car inIndentList)))
  196.       (if     (equal? "" theLine)
  197.         ()
  198.         (begin 
  199.           (set! theText (car (gimp-text theImage 
  200.                         -1 
  201.                         0 
  202.                         0 
  203.                         (string-append " " theLine) 
  204.                         0
  205.                         TRUE 
  206.                         inFontSize
  207.                         PIXELS
  208.                         "*" 
  209.                         inFont 
  210.                         "*" 
  211.                         "*" 
  212.                         "*"
  213.                         "*")))
  214.           (set! theLineHeight (car (gimp-drawable-height  theText) ) )
  215.           (gimp-layer-set-offsets theText 
  216.                       (* theCharWidth theIndent)  
  217.                       (+ theImageHeight 
  218.                          (- inFontSize theLineHeight)))
  219.           (set! theImageWidth (max 
  220.                        (+ (car (gimp-drawable-width  theText) )
  221.                       (* theCharWidth theIndent))
  222.                        theImageWidth ))
  223.           (if (= (car (gimp-layer-is-floating-sel theText)) TRUE)
  224.                       (gimp-floating-sel-anchor theText)
  225.               ()
  226.                   )
  227.                   (gimp-layer-set-name theText theLine)
  228.           )
  229.         )
  230.       (set! theImageHeight 
  231.         (+ theImageHeight inFontSize)) 
  232.       (cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)))
  233. )
  234.  
  235. ; Register the function with the GIMP:
  236.  
  237. (script-fu-register
  238.  "script-fu-asc-2-img"
  239.  "<Toolbox>/Xtns/Script-Fu/Utils/ASCII 2 Image"
  240.  "foo"
  241.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  242.  "8th April 1998"
  243.  "Chris Gutteridge / ECS @ University of Southampton, England"
  244.  "bar"
  245.  SF-VALUE "File Name:"       "\"afile\""
  246.  SF-VALUE "Font:"       "\"Charter\""
  247.  SF-VALUE "Font size:"  "45"
  248.  SF-COLOR "Text Color:"      '(0 0 0)
  249.  SF-TOGGLE "Transparent BG?" FALSE
  250.  SF-COLOR "Background Color:"      '(255 255 255)
  251.  SF-VALUE "Buffer amount (% height of text):" "35"
  252.  SF-TOGGLE "Flatten Image?" TRUE
  253. )
  254.  
  255. (script-fu-register
  256.  "script-fu-asc-2-img-layer"
  257.  "<Image>/Script-Fu/Utils/ASCII 2 Image Layer"
  258.  "foo"
  259.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  260.  "30th April 1998"
  261.  "Chris Gutteridge / ECS @ University of Southampton, England"
  262.  "bar"
  263.  SF-IMAGE "Image" 0
  264.  SF-DRAWABLE "Layer" 0
  265.  SF-VALUE "File Name:"       "\"afile\""
  266.  SF-VALUE "Font:"       "\"Charter\""
  267.  SF-VALUE "Font size:"  "45"
  268.  SF-COLOR "Text Color:"      '(0 0 0)
  269.  SF-TOGGLE "Flatten Image?" TRUE
  270. )
  271.